'
' Twitter Authentication Provider - http://www.oliverhine.com
' Copyright (c) 2009
' by Oliver Hine
'

Imports DotNetNuke.Services.Authentication

Namespace OliverHine.Authentication.Twitter

    Partial Class Settings
        Inherits DotNetNuke.Services.Authentication.AuthenticationSettingsBase

        Public Overrides Sub UpdateSettings()
            If SettingsEditor.IsValid AndAlso SettingsEditor.IsDirty Then
                Dim config As AuthenticationConfig = CType(SettingsEditor.DataSource, AuthenticationConfig)
                AuthenticationConfig.UpdateConfig(config)
            End If
        End Sub

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            Try
                Dim config As AuthenticationConfig = AuthenticationConfig.GetConfig(PortalId)

                SettingsEditor.DataSource = config
                SettingsEditor.DataBind()

            Catch exc As Exception
                Exceptions.ProcessModuleLoadException(Me, exc)
            End Try

        End Sub
    End Class

End Namespace

